home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / jun95 / kran112.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  8.1 KB  |  566x368  |  4-bit (5 colors)
   ocr: - ARTICLELSLHLbTaTYIHIC setFieldValue* method TC setfielavalue(const tablename String, const FleldName String, const theValue Anytype) Logical var retval Logical endvar tcDyn(tableNameJ.edit0) if not ccoyntablenane).LOCkkecordo then tcDyn(tableName).endEdit0) return False endif retval = ccDyn(tableName).setfieldvalue(fieldName ,thevalue) tcDyn(tableName).endEdit0) return retval endmethod Edit Line: 3 Col: 14